'ԶпԶиߡ

ActiveSheet.Columns(2).AutoFit '2 ʵпԶп
ActiveSheet.Cells(1, 2).Select

ActiveSheet.UsedRange.Columns.AutoFit 'ǰʵԶп
ActiveSheet.UsedRange.Rows.AutoFit    'ǰʵԶи


ActiveSheet.Cells(1).Select
